1 IF ASC(A$)>96 THEN A$=CHR$(ASC(A$)-32):RETURN ELSE RETURN
2 A$=INKEY$: IF A$="" THEN 2 ELSE RETURN
3 PRINT STRING$(7,32);"Enter Area Code (3 digit),":PRINT STRING$(12,32)"State (2 letter)":PRINT STRING$(2,32);"or [ESC] to end. DO NOT HIT [ENTER].": GOSUB 2: IF ASC(A$)=27 THEN if isrun then run "menu" else end
8 READ X$: IF ASC(LEFT$(X$,1))<58 THEN 9 ELSE Y$=X$:GOTO 7
9 IF X$=B$ THEN PRINT Y$:GOTO 3 ELSE 8
10 RESTORE 13
11 READ X$: IF X$=LT$ THEN READ X$:PRINT X$" "; ELSE 11
12 READ X$: IF ASC(LEFT$(X$,1))>64 THEN PRINT :GOTO 3 ELSE PRINT X$" ";:GOTO 12
13 DATA "AL","205","AK","907","AZ","602","AR","501","CA","209","213","310","408","415","510","619","707","714","805","818","916","CO","303","719","CT","203","DE","302","DC","202","FL","305","407","813","904","GA","404","912","HI","808","ID","208","IL","217","309","312","618","708","815","IN","219","317","812","IA","319","515","712"
14 DATA "KS","316","913","KY","502","606","LA","318","504","ME","207","MD","301","MA","413","508","617","MI","313","517","616","906","MN","218","507","612","MS","601","MO","314","417","816","MT","406","NE","308","402","NV","702","NH","603","NJ","201","609","908","NM","505"
15 DATA "NY","212","315","516","518","607","716","718","914","NC","704","919","ND","701","OH","216","419","513","614","OK","405","918","OR","503","PA","215","412","717","814","RI","401","SC","803","SD","605","TN","615","901","TX","214","409","512","713","806","817","903","915","UT","801","VT","802"
16 DATA "VA","703","804","WA","206","509","WV","304","WI","414","608","715","WY","307","BRITISH COLUMBIA","604","ALBERTA","403","SASKATCHEWAN","306","MANITOBA","204","ONTARIO","416","519","613","705","807","QUEBEC","418","514","819","NEWFOUNDLAND","709","NEW BRUNSWICK","506"
17 DATA "NOVIA SCOTIA & PRINCE EDWARD ISLAND","902","CARRIBEAN ISLANDS","809"
18 BEEP: IF ERR=4 THEN PRINT "INVALID INPUT":PRINT "OR NONEXISTANT AREA CODE.":PRINT "IF ENTERING STATE"," USE 2 LETTER":PRINT "POSTAL ABBREVIATION.":PRINT "IF ENTERING AREA CODE"," ENTER 3 DIGITS.":RESUME 3